home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / modem / ezdia175.zip / EZ4VB.ZIP / DIALUP.FRM < prev    next >
Text File  |  1995-11-06  |  1KB  |  49 lines
  1. VERSION 2.00
  2. Begin Form frmMainForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "EZDialup - VB Example"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1770
  8.    ClientWidth     =   7365
  9.    Height          =   4710
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16.    WindowState     =   2  'Maximized
  17.    Begin Menu mnuFile 
  18.       Caption         =   "&File"
  19.       Begin Menu mnuConnect 
  20.          Caption         =   "&Connect"
  21.       End
  22.       Begin Menu mnuSep1 
  23.          Caption         =   "-"
  24.       End
  25.       Begin Menu mnuFileExit 
  26.          Caption         =   "E&xit"
  27.       End
  28.    End
  29. End
  30. Option Explicit
  31.  
  32. Sub Form_Unload (Cancel As Integer)
  33.     End
  34. End Sub
  35.  
  36. Sub mnuConnect_Click ()
  37.     frmConnect.Show
  38.     Me.Enabled = False
  39.     'VB 3.0 won't let us access methods in another form, so
  40.     'we simulate a 'click' on the cmdConnect button on frmConnect
  41.     'to invoke it's _Click event.
  42.     frmConnect!cmdConnect.Value = True
  43. End Sub
  44.  
  45. Sub mnuFileExit_Click ()
  46.     End
  47. End Sub
  48.  
  49.